Monster Media 1996 #15/Monster Media Number 15 (Monster Media)(July 1996).ISO/bbs_lord/life118d.zip/LIFE.ZIP/TRAINTXT.DAT

Text File | 1996-03-12 | 9KB | 237 lines

@#Trainings
`<SetOptions>=[1,2,3,4,5,6,7,R]
`<Clear>
`0                         Lan's Training Ring
`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
`2  Looming on a hill you see the local castle...its a foreboding
`2structure...As you wander through the courtyard you hear other people
`2training over in the garden stadium...You decide to go and take a look
`2...maybe you can show these people how experienced you've become.


`2     (`51`2) Watch the Trainings fer a bit
`2     (`52`2) Aid the great warriors clean their weapons
`2     (`53`2) Train with farmer Bob
`2     (`54`2) Ask if guardsman Erric will practice with you
`2     (`55`2) Ask Sir Rodrik of Goosehaven to a practice
`2     (`56`2) Pick a fight with Sir Cedric
`2     (`57`2) Attack Sir Greg
`2     (`4R`2)eturn to the big city
@#TrainingsOptions?
`<SetMenu>=[Trainings]
@#TrainingsOptions1
`<if>=[(FTrained),(TheUser),1,@#DoneTraining]
`<SetVal>=[(FTrained),(TheUser),1]
`2
`2
`2  You watch as warriors of all ages and skill train together in
`2middle of the garden theater...The benches really aren't very comfortable
`2and you soon bore of this...You decide that next time your going to do
`2something more...Maybe if you could find a way to get closer...
`2
`<AddVal>=[(FLifeSkill),(TheUser),500]
`2YOU GAIN 500 LIFE Jousting SKILL
`<AddVal>=[(FLifeStr),(TheUser),500]
`2YOU GAIN 500 LIFE Strength POINTS
`<AddVal>=[(FLifeDef),(TheUser),500]
`2YOU GAIN 500 LIFE Defence POINTS
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU TRAINED AND ARE NOW BETTER AT JOUSTING!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),3]
@#TrainingsOptions2
`<if>=[(FTrained),(TheUser),1,@#DoneTraining]
`<ifless>=[(FLifeExp),(TheUser),500,@#TNeed2]
`<SetVal>=[(FTrained),(TheUser),1]
`2
`2
`2  You run this way and that...helping the warriors
`2with their gear...cleaning, moving, etc...At the end of the
`2day your tired...You have learned alot about their craft though
`2Soon...you will be ready to actually train with a real opponent
`2You leave the garden more skilled then when you entered it.
`2
`2  <At least you've met some real warriors>
`<AddVal>=[(FLifeSkill),(TheUser),2000]
`2YOU GAIN 2000 LIFE Jousting SKILL
`<AddVal>=[(FLifeStr),(TheUser),1000]
`2YOU GAIN 1000 LIFE Strength POINTS
`<AddVal>=[(FLifeDef),(TheUser),1000]
`2YOU GAIN 1000 LIFE Defence POINTS
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU TRAINED AND ARE NOW BETTER AT JOUSTING!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),3]
@#TrainingsOptions3
`<if>=[(FTrained),(TheUser),1,@#DoneTraining]
`<ifless>=[(FLifeExp),(TheUser),1500,@#TNeed3]
`<SetVal>=[(FTrained),(TheUser),1]
`2
`2
`2  You decide that today you are going to really train somehow
`2...So you look around for an opponent who will agree to train a bit
`2with you...soon after many apologetic refusals you find a farmer who
`2would like to train with you...
`2
`2  <At least you've met some real warriors>
`<AddVal>=[(FLifeSkill),(TheUser),20000]
`2YOU GAIN 20000 LIFE Jousting SKILL
`<AddVal>=[(FLifeStr),(TheUser),1500]
`2YOU GAIN 1500 LIFE Strength POINTS
`<AddVal>=[(FLifeDef),(TheUser),1500]
`2YOU GAIN 1500 LIFE Defence POINTS
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU TRAINED AND ARE NOW BETTER AT JOUSTING!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),3]
@#TrainingsOptions4
`<if>=[(FTrained),(TheUser),1,@#DoneTraining]
`<ifless>=[(FLifeExp),(TheUser),50000,@#TNeed4]
`<SetVal>=[(FTrained),(TheUser),1]
`2
`2
`2  You decide that today you are going to try to practice with a
`2guard...So you look around for an guard who will agree to train a bit
`2with you...soon after many apologetic refusals you find a guard who
`2would like to train with you...
`2
`2  <Your really starting to become quite a warrior>
`<AddVal>=[(FLifeSkill),(TheUser),100000]
`2YOU GAIN 100000 LIFE Jousting SKILL
`<AddVal>=[(FLifeStr),(TheUser),2000]
`2YOU GAIN 2000 LIFE Strength POINTS
`<AddVal>=[(FLifeDef),(TheUser),2000]
`2YOU GAIN 2000 LIFE Defence POINTS
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU TRAINED AND ARE NOW BETTER AT JOUSTING!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),3]
@#TrainingsOptions5
`<if>=[(FTrained),(TheUser),1,@#DoneTraining]
`<ifless>=[(FLifeExp),(TheUser),1000000,@#TNeed5]
`<SetVal>=[(FTrained),(TheUser),1]
`2
`2
`2  You decide that today you are going to try to practice with a
`2noble...So you look around for an nobleman who will agree to train a bit
`2with you...soon after many apologetic refusals you find a nobleman who
`2would like to train with you...Sir Rodrik...intimidating fellow...
`2
`2  <Sir Rodrik was not as intimidating as you thought>
`<AddVal>=[(FLifeSkill),(TheUser),5000000]
`2YOU GAIN 5000000 LIFE Jousting SKILL
`<AddVal>=[(FLifeStr),(TheUser),100000]
`2YOU GAIN 100000 LIFE Strength POINTS
`<AddVal>=[(FLifeDef),(TheUser),100000]
`2YOU GAIN 100000 LIFE Defence POINTS
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU TRAINED AND ARE NOW BETTER AT JOUSTING!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),3]
@#TrainingsOptions6
`<if>=[(FTrained),(TheUser),1,@#DoneTraining]
`<ifless>=[(FLifeExp),(TheUser),25000000,@#TNeed6]
`<SetVal>=[(FTrained),(TheUser),1]
`2
`2
`2  You decide that today you are going to try to practice with another
`2nobleman...So you look around for a nobleman who will agree to train a bit
`2with you...You have no trouble finding an opponent...Sir Cedrik, your oppenent
`2is actually no match for you...You win hands down to the roar of the crowd.
`2
`2  <Sir Cedrik was easy...and he was the best..you feel invincible!>
`<AddVal>=[(FLifeSkill),(TheUser),55000000]
`2YOU GAIN 55000000 LIFE Jousting SKILL
`<AddVal>=[(FLifeStr),(TheUser),10000000]
`2YOU GAIN 10000000 LIFE Strength POINTS
`<AddVal>=[(FLifeDef),(TheUser),10000000]
`2YOU GAIN 10000000 LIFE Defence POINTS
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU TRAINED AND ARE NOW BETTER AT JOUSTING!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),3]
@#TrainingsOptions7
`<if>=[(FTrained),(TheUser),1,@#DoneTraining]
`<ifless>=[(FLifeExp),(TheUser),345000000,@#TNeed7]
`<SetVal>=[(FTrained),(TheUser),1]
`2
`2
`2  Some say the best swordplay in the land is  meted out by
`2either Sir Rodrik, Sir Cedric, or Sir Greg...The only problem is that
`2Sir Greg cannot control anger...He is liable to lose it for the slightest
`provocation...
`2
`2 <Your reassured...you've beaten the best three warriors in the kingdom!>
`<AddVal>=[(FLifeSkill),(TheUser),50000000]
`2YOU GAIN 50000000 LIFE Jousting SKILL
`<AddVal>=[(FLifeStr),(TheUser),10000000]
`2YOU GAIN 10000000 LIFE Strength POINTS
`<AddVal>=[(FLifeDef),(TheUser),10000000]
`2YOU GAIN 10000000 LIFE Defence POINTS
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU TRAINED AND ARE NOW BETTER AT JOUSTING!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),3]
@#TrainingsOptionsR
`<SetMenuAndFile>=[MainMenu,(TLifesDir),MAINTXT.DAT]
@#TrainingsOptions|
`<SetMenuAndFile>=[MainMenu,(TLifesDir),MAINTXT.DAT]
@#UserNotFound
`<NewLine>
`<RetOn>
`7User not found...
`2The user may not have been in lord life yet...
`2Or you may not have entered the name right...
`2Type less of the name if you are unsure...
@#UserNoInfo
`<NewLine>
`2Sorry...but that user has not entered their info yet.
`<NewLine>
@#Abort
`<NewLine>
`4Aborted!
`<NewLine>
@#NoFairy
`<NewLine>
`2  Sorry pal...but you do not have a fairy!
`<NewLine>
@#DoneTraining
`<NewLine>
`2  Sorry pal its getting late...no more today.
`<NewLine>
@#TNeed2
`2
`2Sorry...You need 500 LIFE EXP to help the warriors!
@#TNeed3
`2
`2Sorry...You need 1500 LIFE EXP to train with Bob!
@#TNeed4
`2
`2Sorry...You need 50000 LIFE EXP to fight a guard!
@#TNeed5
`2
`2Sorry...You need 1,000,000 LIFE EXP to train with Sir Rodrik!
@#TNeed6
`2
`2Sorry...You need 25,000,000 LIFE EXP to train with Sir Cedrik!
@#TNeed7
`2
`2Sorry...You need 345,000,000 LIFE EXP to kill Greg!
@#LNine
`2
`2Sorry...You need to be on Level nine or higher to exchange!
@#FGambled
`2
`2Sorry...but you have already Gambled!
@#NotNuff
`2
`2Sorry...but you need to have money to play at this table...
`3go to the bank and get some money...or `4get lost!
@#NSF
`2
`2Sorry...but you do not have enough money...
`3Go to the bank and get some money...or `4get lost!
@#YouNoHave
`2
`2WHAT!?! You do not have one!!!
@#LevelLock
`2
`2  Sorry...but you cannot buy that item here on your
`2Level...it could make a mockery of your lord game...ruining all
`2the fun...you wouldn't want that would you...don't worry after
`2you reach Level nine all's fair in lord and life! :)
@#ENDOFFILE